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66-SEP-1984 11:29:13 (CMTHRTL.S REI UVXPOWRR.MAR; 1 (1) 
8 -TITLE UVXSPOWRR - REAL ** REAL power routine 
8 -IDENT /2-008/ : File: OTSPOWRR.MAR Edit: JCW2008 
900 MARBABABAAAAASAALAAALALALALALALESASEEAE ELAS ESAS ERA R ELAS ESESS ESSE SEES EEE CESSES 
& ® 
38 * COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
000 * DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 
4 ~ ALL RIGHTS RESERVED. * 
® 
0000 * THIS SOFTWARE IS 4 ag Ee UNDER A LICENSE AND MAY BE USED AND cortee * 
4 * ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
000 * INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
0000 * COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
0000 * OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
5006 . TRANSFERRED. * 
® 
0000 * THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
0000 * AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
5000 rs CORPORATION. * 
® 
0000 * DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
0000 * SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
$8 
® 
44 'MARABAABAAASAAASAAALAAAAAALALASASLALELEAEASALELESEESASR SERRE EESESSSESESESSLESL SSS 
0000 
44 fACILITY: Language support Library - user callable 


“ABSTRACT: 
REAL base to REAL power. 


Floating overflow can occur 
meecienes ex meaner benag hn can occur if: 
get ve base 
ase and power is 0 or negative. 


VERSION: 2 
HISTORY: 


AUTHOR: 
Bob Hanek, 3-Mar-83: Version 2 


MODIFIED BY: 
Jeffrey C. Wiener, 9-MAY-83: Version 2-002 
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STORY ; Detailed current edit history 6-SEP*+1984 11:29:13 (MTHRTL.SRCJUVXPOWRR.MAR; 1 (2) 


-SBTTL HISTORY ; Detailed current edit history 


HI 


; Edit history for Version 2 of OTSSPOWRR 


5-00) New algorithm implemented. RNH 3-Mar-83 

-002 Since microVAX requires that F_floating point routines may only 
be backed-up by G_floating point instructions, the previous version 
iy °8 ace ine has been modified to accomplish this requirement. 

2-003 peer INDEX pyete to be a local table rather tham « GLOBAL table. 
LEB yn ha " 

2-004 Change re eregge of INDEX(Rx) to be INDEXCRx] to avoid Linker 
errors. LEB 25-May-198 

-005 Changed MTHSPOWRR entry to OTSS$POWRR enter. JCW 26-May-1983 

-00 zoange reference of A_TABLE(Rx) to be A_TABLECRxJ]. LEB 26-May-1983 

-007 Added two ROTL #-3,Rx,Rx instructions to scale the value of Rx back 
from ‘indext2*3' to ‘index’ before A_TABLECRx] is referenced. The 
INDEX was_not scaled back to yield values of ‘index’ instead of 
*index*2*3" because the mathematics of the code used does _need the 
value of index*2*3 in several computations. JCW 7-Jun-1983 

2-008 Corrected two bugs. The first bug was the omission of an A_TABLE 
entry for 2°(16/16). While doing this I also converted all the 
A_TABLE entries so that they now represented rounded values, rather 
than truncated values. This will increase ot eur ety. This was also 
done ef CO. The other bug involved a SYS_F FLTOVF_f error during 
a MULG2 RO, R2. Code was added to see if & ATH overflow message or a 
zero should be returned. While examining the code I also noticed that 
the accuracy could be increased 7 replacing some of the CVIGF's (which 
round) by code that would cause the CVTGF to truncate. The Last CVIGF 
in the code was not fixed in this manner because at this level in the 
routine you are ready to return your result, which is always rounded 
off. JCW 19-Jan-198 
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~SBTTL DECLARATIONS 


984 02:07:47 VAX/VMS Macro Vv04-00 P 
Bee 995 t TS PRTANTS eects free mans1 P28 (8) 


oO 
Oo 
GOooooe 


: INCLUDE FILES: 


EXTERNAL SYMBOLS: 


: GBL 

eEXTRN nTHSK UNDE XP 
EXTRN MTHSK_FLOUNDMAT 
EXTRN MTHSK-FLOOVEMAT 
eEXTRN MTHSSSIGNAL 


: MACROS: 
SSFDEF 


Undefined exponentiation 
Under flow 

Overflow 

Math erree routine 


Bete Ge te 


Define stack frame symbols 


; EQUATED SYMBOLS: 


00000004 base = 4 ; base input formal - by-value 
00000008 exp = 8 ; exponent input formal - by-value 
0000001C ACMASK = “M< R2, R3, R4> ; register saving mask 
3B4F 43F6 C2 = *X384F43F6 
€0234393 C4 = *XC0234393 
OWN STORAGE: 
none 


PSECT DECLARATIONS: 


-PSECT _OTSSCODE PIC,SHR,LONG,EXE ,NOWRT 
; program section for OTS$ code 


0000 


> CONSTANTS: 
: The INDEX table gives. “ byte offset into the A_TABLE necessary to select 
; the proper choice of ' 
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08 08 08 08 08 00 00 00 INDEX: ~BYTE “X00, “X00, “X00, “X08, “X08, “x08, “x08, “x08 
18 10 10 10 10 10 + % ~BYTE “X08, “X10, “X10, “X10, “X10, “x10, “x10, “X18 
20 20 20 18 18 18 18 1 01 BYTE “x18, “x18, “ 4 " RI ¥ “x18, “x20, Q, “x : 
8 28 <8 28 20 20 01 BYTE “Xx g. “X20, “x20, aXg » “X28, “X28, “X28, “xX 

0 ; 0 30 30 30 -BYTE “X28, “X28, ° » “X30, “X50, “X30, “x30 
8 ! | 3 8 ~BYTE “Xx g. “x50, ° “x8 » “X38, “Xx Be “x38, “x38 
40 40 40 40 40 40 4 0 ~BYTE “X38, “X40, Xd « “X40, “X40, “X40, “X40, “x40 
48 48 48 $8 $8 48 48 4 03 BYTE “X40, “X48, “X48, “X48, “X48, “X48, “X48, “X48 
50 50 23 2 2 2 2 4 04 BYTE “X48, “X50, “X50, “X50, “X50, “x50, “X50, “X5 
58 58 58 58 58 5 4 BYTE *x50, “x50, “X58, “x58, “X58, “x58, “x58, “x5 
60 60 60 60 60 58 58 5 5 BYTE “X58, “x58, “x58, “x60, “X60, “X60, “x60, “x60 
68 68 68 68 60 60 60 60 5 BYTE “X60, “X60, “X60, “X60, “X68, “X68, “X68, “X68 
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-SBTTL OTSSPOWRR = REAL to REAL giving REAL result 


++ 

FUNCTIONAL DESCRIPTION: 
OTSSPOWRR = REAL result = REAL base ** REAL exponent 
The REAL result is given by: 


base exponent result 

= 0 > 0 0.0 : 

= 0 = 0 Undefined Exponentiation 
= 0 <0 Undefined Exponentiation 
< 0 any Undefined Exponentiation 
>0 >0 2“Cexp*log2 (base) ] 

>0 = 0 1.0 ere 

>0 <0 2“Cexp*log2 (base) J] 


Floating Overflow and Underflow can occur. 
Undefined oe oe te em can occur if: 
1) base is 0 and exponent is 0 or negative 
2) base is negative 


3; The basic approach to computing x*ty as 2“*Cy*log2(x)] is the following: 
: Step 1: Compute boge(x) to sufficient precision to guarantee an 

; accurate final result (see below. 

: Step 2: Compute ytlog2(x) to at least the accuracy that log2(x) 

: was computed. a 

: Step 3: Evaluate 2“Ly*log2(x)] accurate to the precision of the 

2 datatype in question. 


To determine the accuracy to which log2(x) must be computed to, write 
: y*loge(x) as 1 +h, where I is the integer closest to y*log2(x), and 
= ytlog2(x) - I (Note that thi =< 1/2.) Then 


2*Cytlog2(x)J) = 2°¢1 + h) = (2*1)*(2%h). 


Since the factor 2°1 can be incorporated into the final result by an integer 
gd¢"sion to the exponent field, we can assume that the multiplication by. 
“] incurs no error. Thus the total error in the final result is determined 
; by how accurately 2*h can be computed. If the final result has p fraction 
bits, we would Like h to have at least p good bits. In fact it would be 
nice if h had a few extra guard bits, say 4. Consequently, we would Like 
h to be accurate to p + 4 bits. 


et e be the number of bits allocated to the exponent field of the data type 
n question. If I requires more that e bits to represent. then overflow or 

; underflow will occur. Therefore if the product y*loge(x) has e + p + 4 good 

; bits, the final result will be pocurate. This requires that log2(x) be 

; computed to at least p + e + 4 bits. 
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ince log2(x) must be computed to more bits of precision than is available 


n the base data type, either the next level of precision or multi-precision 
arithmetic must be used. We begin by writing 


lLog2(x) = log2(b) + > c(2net ez! 


n= 
Where c(1) = 1, and z* = (2/Ln2)C(z-b)/(z+b)J. Hence 


n+1 


2n+1 
Log2(x) = lLog2(b) + 2° + > cl2n+1)*2' 
net 
= log2(b) + 2° + plz"). 
Note that if p(z') is computed to P bits, and log2(b) + z* is computed. 
to pte+4 bits and overhangs p(z') by e+4 bits, the required eceurecy wiil 
4 


be achieved. Consequently, the essential tricks, are to pick b such that 
the overhang can be achieved and to compute log2(b) + z' top +e + 4 bits. 


CALLING SEQUENCE: 


power.wf.v = OTSSPOWRR (base.rf.v, exponent.rf.v) 


INPUT PARAMETERS: 
Base and exponent parameters are call by value 


rn 


Oc dd ad dd 
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IMPLICIT INPUTS: 
none 
75 ; OUTPUT PARAMETERS: 
6 none 
78 ; IMPLICIT OUTPUTS: 
79 none 


FUNCTIONAL VALUE: 
OTSSPOWRR - EAL base ** REAL power 


SIDE EFFECTS: 


SIGNALS MTHSK_FLOOVEMAT if floating overflow. 

SIGNALS MTHSK_FLOUNDMAT if pees ioe under flow. 

SIGNALS MTHSK_UNDEXP (82 = ° UNDEFINED EXPONENTIATION’) if 
1) base is 0 and exponent is 0 or negative 
2) base is negative 
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001C 95 ENTRY OTSSPOWRR, ACMASK 3; standard call-by-reference entry | 
; disable DV (and FU) 
, | 
; Move x to RO. If x <0, or x = 0 and y =< 0, return ‘UNDEFINED 
; EXPONENTIATION' error condition, otherwise attempt to compute x*ty 
50 04 aC 50 MOVF base(AP), RO 3 RO <-- x 
1A 16 BGTR DEFINED : If x > 0 attempt to compute x*ty 
07 19 BLSS UNDEF INED ; Branch to error code for x < 0 
51 08 AC 22 MOVF exp(AP), R1 3 R1 <== y (Note that x = 0) 
01 1 BLEQ UNDEF INED ; Branch to error condition if y =< 0 
: If precesen™ continues here, this implies that x = 0 and y > 0. Return 
3 with x*ry = 
04 RET ; Return 


: If ghee continues here, this implies that an undefined exponentiation 
3 was attempted. Signal error and return 


UNDEF INED: 
MOVZWL #*x8000, RO 
MOVZBL #MTHSK_UNDEXP, -(SP) 
CALLS #1, G*ATHSSSIGNAL 


RO <== Reserved operand 
Put error code on stack ; 
Convert error number to 32 bit 


OO'S8F 9A : 
: condition code and signal error. 


7E 
00000000'GF 01 FB 


NOTE: Second argument is not re- 
quired since there is no JSB entry. 


RET ; Return 


If preceesens continues here will attempt to compute x*ty as 2*Cy*log2(x)]. 
a eain oY. nampa an integer k and a real mumber f such that x = 2“kef, 
an s 


DEFINED: 
BICL3 #*XFFFFBO7F, RO, R4 3; R4 <== 2°7*(biased exponent of x) 
#*x4080, R4 3 R4 <e= 2°7tk = 2*7#(exponent_of_x - 1) 
SUBL R4, RO ; RO <-- f = 2(fraction field of x) 


54 50 FFFF8O7F 8F 
54 00004080 ef 
50 4 


AOO 
Morow 


; We are now epeey to compute log2(x). This computation is based on the 
; following identity: 


2c 4 fea 
> log2(2*k*f) = k + log2(a) + ----- > snm= 2°(2j+1), where 2 = ----- . 
; in(2)/ 2j+1 ft+a 


| 

| 

50_ 8000 8F 3¢ 
We begin by determining a as b*i, where b = 2°(1/16) and i is between 0 
; and 16 inclusive. Specifically i is chosen by table look-up so that 

; the magnitude of z is minimized. Since log2(a) = 1/16, we may write 
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154 : | 
: ? 38 ; log2(2*k*f) = k + 1/16 + z*p(z*2). 
154 55 ; Note that in order to insure an accurate result, logete “net? must be computed 
: ? 28 ; accurately to 36 bits. This will require some double precision arithmetic. 
154 358 ° 
154 35 EVAL_LOG2: 
52 50  FFFFFF8O 8F CB 0154 60 BICL3 #*XFFFFFF8O, RO, R2 : Re <-- index to INDEX table 
52. FESF Crag 90 01 61 MOVE = INDEXCR2], R2 t RO <a ise" 
| aS CO 166 $6 ADDL 3 RS <= 2°78(k + 1/16) 
52 52 FD BF 9C 016 6 ROTL #-%, R2, R2 + R2 <e- f 
164 64 3; Re will be multiplied by 2°3 by 
YI6A 65 ; table references Like the line below. 
J16A $8 ; The Linker will cause an error if 
016A 6 :; © are used instead of [) for these 
016A 68 3 table references. 
50 3 99FD O16A 69 CVTF RO, RO : RO/R1 <-- 
52. 50 FFIG CF42 43FD 016¢ 70 SUBG3 A_TABLECR2J, RO, R2 > R2/R3 <== f - a (NOTE: result is 
0176 71 3 exact, i.e. no roundoff error) 
50 10 ad 0176 ie} ADDW #*x10, RO : RO/R1 <== 2ef 
50 52 42FD 0179 «(37 SUBG2 2, RO : RO/R1 <-- f + a 
52 50 46FD 017D 74 DIVG RO, R2 3 R2/R3 <== 2 
a i 
0181 5 > Compute 2*7ezep(z*2) = z2e(cO* + c2"z*2 + c4ez*4), where the c's are chosen 
itt ee 3 to minimize the absoiute error of the approximation 
0181 380° 
7E 53 #£49FFFFIFFF 8F CB 0181 81 BICL3 @#*XFFFFIFFF, R3, -(SP) ; prepare to save R2 and to clear 
7E 52 00 0189 5 2, -(SP 3 the rounding bit in order to 
7E BE 33FD 018C 38 CVIGF (SP)+, -(SP) : to form a truncated CVTGF 
51 8 6— 45 0190 84 MULF (SP), (SP)+, R1 : R1 <== 242 
so 51 Gopston BF 43 gige HRS MULES tk. : AO Seabee, 
6 31 & STAs 387 MULF , RO SRO <o- coez*d + caez%s 
50 50 99FD O1A6 88 CVTFG RO, RO 3 RO/R1 <== c2*z2*2 + c4*%2%4 
50 FED! CF 4OFD ifs 89 ADDG2 0, RO 3 RO/R1 <-- cO + c2#2z*2 + c4*2%4 
52 50 44FD O14 4 MULG2 RO, R2 3 R2/R3 <= 24782%p(2"2) 
1B4 92 ; 
0184 38 3; Compute log2(x) = k + 1/16 + z2*p(z) 
iba 308° 
50 54 4EFD 01B4 9 CVTILG R4, R 3; Convert 2°7*(k + 1/16) to double 
52 50 40FD H+ $3 ADDG2 =RO, RD 3 R2/R3 <= 2°7#Llog2(x) | 
1BC 99 ; : 
18¢ 400 ; We can now compute xtty as entystogetu)d. We begin by computing | 
1B8C 401 ; y*log2(x). (Note that Ri = 0. 
War 408° 
50 O08 AC 50 186 404 MOVF exp(AP), RO ; RO/R1 <== y 
50 50 99FD 5 : 5 CVTFG RO, RO 
01C4 209 : Test for the possibility of overflow in the computation of yey. 
01¢4 408 ; This will occur if the exponent of y plus the exponent of wl is greater | 
| 
| 


ascii iceitbenticaiieedtechiaiadinceieneiilieileteintnnceapa deh biuniccimathinint ita nena tatiaiinia tinsitehiniinesanitisiinasitmananitibilial : 
| — 1 | 
| Yuxpeowne - ts: ** REAL power routine i obs Sad 9 Ta Se tA AX/VMS Macro Vv04-00 Page 9 | 
-008 OTSSPOWRR = REAL to REAL giving REAL res 6-SEP-1984 11:29:13 CMTHRTL.SRCJUVXPOWRR.MAR; 1 (5) | 
fet 408 ¢ than 127, | 
7E 50 08 04 EF 0104 411° EXTZV #4, #11, RO, =(SP) ; biased exp of y | 
of 400 8F A2 01C9 a SUBW2  #*%400, (SPS ; unbiased exp of y 
54 4 EF O1CE 41 EXTZV #4, #11, R2, R4 : biased exp of 2°7*Llog2(x) 
54 400 8F os 198 414 + #*x400, R 3; unbiased exp of Sas og2(x) 
4 og - 1D 415 ADDL (S$P)+, R4 3; unbiased exp of 2*7*log2(x)ty 
54 OO7F BF 61 01D £18 PW #*°X7F, RS ; largest unbiased exp possible is 127 
3 18 O160 41 BGEQ NO _SYS_OVERFLOW 
oos8c =O ss«31 1E 213 BRw Y_TIMES_W1_OVER 
16541 NO_SYS_OVERELOW: 
52 50 44FD BiE8 2 y MULG A, R2 3 R2/R3 <e- 2*7#ytlog2(x) 
O1E9 422 ; 
3134 : § ; The next step in computing 2“Cy*log2(x)] is to write y*tlog2(x) as 
OES 4 3 ; ytlog2(x) = I + j/16 + 9/16, 
O1E9 427 : where I is an integer, j is an integer between 0 and 15 inclusive, and 
O1E9 «4428 ; g is a fraction in the interval [-1/72, 1/2) 
gs ae 
7E 53 FFFFIFFF 8F CB O1E9) = 431 BICL3 #*XFFFFIFFF, R3, -(SP) 
sae sold SL GERMS Bas 2 
50 54 00004000 8F 41 O1FB 434 ADDF3 #*x4DC0, R4, RO ; 3*2°5 is used in this truncation process 
0200 435 3 to avoid a possible normalization 
8560 436 ; that could occur if the number is neg 
50  00004DC0 8F 42 0200 437 SUBF #*x4CC60, RO 3 RO/R1 <== 2*7(1 + j/16) in double 
50 50 99FD 0207 438 CVTFG RO, RO 
52 50 42FD 0208 439 SUBG2 RO, R2 3 R2/R3 <--_2*7(g/16) 
54 50 49FD pgoF 440 CVTGW RO, R4 3 R4 <== 2°7(1 + j/16) in integer 
52. 1D ° 13. 441 BVS EXCEPTION_1 ; Branch if ‘I! is too large 
gee 
oste re: > We can now compute 
0313 “a8 : xtty = 2*Cytlog2(x)] = 2°CI1 + j/16 + g/16) 
0313 ret : = (2*])*CA*(B+1)] = 2*1*CA + A*B), where 
0215 450 : A = 2%(j/16) is obtained from the A_TABLE and B = 2*(9/16) - 1 is obtained 
0 13 rth : by, min/max approximation whose coefficients compensate to the factor of 
i ie 
53 bad bs BF 3350 13 $2? Bitte Pd dele R3 
FEEA CF 8 25 55 0 457 POLYF R : #EXPLEN-1, EXPTAB 3 RO <-- B = 2%(g/16) - 1 
52 54 FFFFFF8O BF CB 6 458 BICL3 #*KFFFFFF8O, R4, R2 : R2 <== index into A_TABLE table 
sf 52 FD 8F 9C 459 ROTL #-3, R2 3; R2 <-- index into A_TABLE table 
2 “FESO CF42 =7D 5 460 MOVG. A TABLEC Re , R2 > RO/R3 <== A = 24(j/T6) 
7E 53 FFFFIFFF 8F C 461 BICL3 #*XFFFFIFFF, R35, -(SP) 
FE OBE 3srp See 48 CUTGE Cb De ESP) | 
6 f 44 48 464 MULF 2 (SP) 4, RO 3; RO <-- A*®B 
50 99FD 0248 465 CVTFG RO, RO 
| 


SSS aa ea ean ee 


XSPOWRR - REAL ** REAL power routine 16-SEP-1984 02:07:47 VAX/VMS Macro v04-00 Page 1 
oy 08 OTS$POWRR = REAL to REAL giving REAL res gnSEP-1984 TE MTMRTL.SRCJUVXPOWRR.MAR;1 (3 
40FD 4F 46 ADDG2 Rz, R ; RO/R1 <== A + AtB 

$0 § $f ; re CVTGF RO, RO ; RO <--2*C(j + g)/16] 
54 7F 8F AA 4 3 BICW @*X7F, RG 3 R46 = 2°7*] 

0 4 AO C ADDW R4, R 3 RO <m= 2*1*2*C(j+g)/16] 
OO7F 8F 0 261 F MPW RO, #°X7F 3; test for over/under flow 

or . 3 BLEQ EXCEPTION_2 ; see what exception is if neg or = 0 
04 RETURN: RET 3 otherwise return result in RO 


: Handlers for software detected over/underflow conditions follow 


Conn 


EXCEPTION_1: 
50 «(553 TSTF : if big ARG > 0 goto overflow 
1D «18 BGEQ OVER : handler, otherwise go to 
08 11 . UNDER 5 underflow handler 
54 B5 STw R4 ; test sign of I; if I >= 0 
17 «+18 BGEQ OVER 3 go to overflow handler 


POPOPIPIPINOPIPINININININININIPIPONPIPINY 


: y*wi would have caused a hardware system floating overflow error. If y<0, 
3; then we should return a result of 0 since result = 2“(y*(wil+w2)). Note, 
; y can not be zero. 


7 
4 
1 
74 
o? 
79 
78 
79 
80 
81 8 
8 EXCEPTION 
8 T 
84 
85 
86 
87 
88 
89 
90 
4 
98 


Y_TIMES_W1_OVER: 
53 TSTF RO : if y <0 no overflow is needed 
14 494 BGTR OVER ; overflow for y > 0 
i 
rh 44 > Underflow; if user has FU set, signal error. Always return 0.0 
499 ° 
UNDER: CLRL RO = result. 


RO : 
BBC #6, SFSW_SAVE_PSW(FP), 28 
MOVZBL #MTHSK_FLOUNDMAT, -(SP) 


0B 04 AD 06 €E1 
; has user enabled floating underflow? 
7E OO°8F 9A ; trap code for hardware f ~ gy F 
underflow. Convert to MTH$_FLOUNDMAT 
(32-bit VAX-11 exception code) 

; signal condition 

return 


00000000'GF 01 FB CALLS #1, G*MTHSSSIGNAL 
04 RET 


2s: 


; Signal floating overflow, return reserved operand, -0.0 


; Move overflow code to stack 

; RO = result = reserved operand -0.0. 

; RO will be copied to signal mechanism 
vector (CHF$L_MCH_RO/R1) so it can be 
fixed up by any error handler 

signal condition 

return - RO restored from CHFSL_MCH_RO/R1 


OVER: MOVZBL #MTHSK_FLOOVEMAT, ~(SP) 
ASHQ #15 RO 


Rr db bb 4-04 04 ee 4 + PP RRR RR REE EEEEEEE EB. HT TEAR AL SS 
DOOM 000009090909 VOOON 9 NUUUVIUUIWN 2 2 NOOO NOs 


Sete Se Sete ee & 


CALLS #1, G*MTHSSSIGNAL 
RET 


CGOOOCOCOOOCOOCOOCOCOCOCOCOCOCOCOC COCO OCOOCOCOCCOOOOCCOOCOOOOOOOOOoO 
POPPIPIPOPINPIPNPONINIPIMOPINYNONYNIPOPYIPIPUPINONINOPINPONPNNoPoMononony» 
RNR A Ot OS HS PM OOOOOSOOOCSS 


=—DOONOUS WN“ OVOVONOULSWN Oo 


QPUPVPVDPVDPVPV PVPS VST SISTSTSTA AAAI 


woo 
coo 


- END 


| 

| 15 

50 D4 
| 

! 

| 

| 

SL ate 


SPOWRR 
/ Symbol table 
| ACMASK = 0 if 
A_TABLE R 
BASE = 
£9 OR 
C = F4SF 
C4 = 3439 
DEF INED 142 R 
EVAL_LOG2 154 R 
EXCEPTION. 1 00267 R 
EXCEPTION 2 0026D R 
we z 8 
EXPLEN = OS436 
EXPTAB 110 R 
INDEX 00000000 R 
MTHS$S IGNAL eenteree YX 
MTHSK_FLOOVEMAT seeeeeee 
MTHSK-FLOUNDMAT teeenene x 
MTHSK_UNDEXP reerenee x 
NO_SYS OVERFLOW OQOO001E5S R 
OTSSPOORR 00000120 RG 
OVER 00000288 R 
RETURN 00000266 R 
SF$W_SAVE_PSW = 00000004 
UNDEF INED 00000131 R 
UNDER else tee R 
Y_TIMES_W1_OVER 00000271 R 


The working set Limit was 1050 
9361 bytes (19 pages) of virtua 


There were 10 pages of symbol table space allocated to hold 
521 source Lines were read in Pass 1, producing 1 


= REAL ** REAL power routine 16-SEP-1984 7:47 VAX/VMS Macro V04-00 P 11 Vv 
4 green 1o86 97:59:15 MTURTE caeuvKrouse.mar:1 P29 td, - 

02 

02 

0 

0 

0 

0 


MPM POMIMOrmOGOOCOTrT7 rororore 


ooo COOCOOCOOOOoO 


PSECT name Allocation PSECT No. Attributes 
- ABS. 00000000 ( 0.) 00 ¢ O.) NOPIC USR CON =ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
$$ 00000000 ( 0.) O1¢ 1.) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 

_OTSSCODE 00000298 ( 664.) 02 ¢ 2.) PIC USR CON’ REL LCL SHR EXE RD NOWRT NOVEC LONG 
teas wmerawren reer acr een eowoceaon + 
H Performance indicators ; 

Phase Page faults CPU Time Elapsed Time 

Initialization 5 0:00:00.10 0:00:00.8 

Command processing 107 $0;00; 8:56 80; 0:02:69 

ek table sort “. 00:00: Mat 00:00: 0:64 

Pass 2 104 0:00:01.15  00:00:05.10 

Symbol table output 4 BBR! 0.04 Bon RR kt 

Psect synopsis output 0:00:00.03 800: 88- 3 

Cross-reference output Bob be 95 0:00:00.00 

Assembler run totals 38 0:00:03.79 00:00:14.80 


ages. 
caer’ were used to buffer the intermediate code. 
4 non-local age 1 local symbols. 


object records in Pass 


UVx & - REAL ** REAL power routine 
VAX-11 Macro Run Statistics 


8 pages of virtual memory were used to define 7 macros. 
rs at 


! ;_Macro _library statistics ! 


samme nn meson emcee aaseuaunnaet 


Macro Library name Macros defined 
“$255$DUA28: CSYSLIBISTARLET. MLB;2 4 
88 GETS were required to define 4 macros. 


There were no errors, warnings or information messages. 


AX/VMS Macro V04-00 
MTHRTL.S REIU UVXPOWRR. 


"BaSEb= SBS 99:35:45 


MACRO/ENABLE=SUPPRESSION/DI SABLE=(GLOBAL , TRACEBACK) /LIS=LIS$:UVXPOWRR/OBJ=OBJ$:UVXPOWRR MSRC$:UVXPOWRR/UPDATE =(ENH$:UVXPOWRR) 


| 0265 AH-BT13A-SE ) NT CORPORATION 
gave VAX/VMS V4.0 D PROPRIETARY 


NT CORPORATION 
PROPRIETARY 


AH-BT13A-SE 
VAX/VMS V4.0 


| 2b 


